S h o w R e s u l t ( ) ; 
 
 G u e s s C o m p l e t e ( ) ; 
 
 B o x S e l e c t e d C o l o r ( ) ; 
 
 S h o w S o l u t i o n ( ) ; 
 
 c o l o r L i s t ; 
 
 
 
 
 
 E X P O R T   M a s t e r m i n d ( ) 
 
 / / M a s t e r m i n d   v 1 . 3 
 
 / / 2 0 2 0 
 
 / / T o n y   G a l l o 
 
 / / t g a l l o @ t b a y t e l . c o m 
 
 / / h t t p : / / m y . t b a y t e l . n e t / t g a l l o / h p   p r i m e 
 
 
 
 B E G I N 
 
 l o c a l   t o u c h ; 
 
 L O C A L   X , Y ; 
 
 l o c a l   C o l o r X ; 
 
 l o c a l   S o l u t i o n ,   G u e s s ,   S o l F l a g ; 
 
 l o c a l   S o l C o l o r ,   P e g C o l o r ; 
 
 l o c a l   G ; 
 
 l o c a l   B ,   W ; 
 
 l o c a l   I ,   J ; 
 
 l o c a l   c h o i c e ; 
 
 l o c a l   s t a r t c o l ; 
 
 l o c a l   k e y ; 
 
 l o c a l   t o u c h ; 
 
 l o c a l   m e s s a g e ; 
 
 l o c a l   d o n e ; 
 
 
 
 
 
 / / t i t l e   s c r e e n 
 
 R E C T _ P ( 0 , 0 , 3 1 9 , 2 3 9 , 0 , R G B ( 0 , 0 , 0 ) ) ; 
 
 T E X T O U T _ P ( " M A S T E R M I N D " , 1 2 0 , 9 0 , 2 , R G B ( 2 5 5 , 0 , 0 ) ) ; 
 
 T E X T O U T _ P ( " v 1 . 3       2 0 2 0 " , 1 3 0 , 1 1 0 , 1 , R G B ( 2 5 5 , 0 , 0 ) ) ; 
 
 T E X T O U T _ P ( " b y   T o n y   G a l l o " , 1 2 5 , 1 3 0 , 1 , R G B ( 2 5 5 , 0 , 0 ) ) ; 
 
 w a i t ( 1 . 5 ) ; 
 
 
 
 / / u n s e l e c t e d ( b r o w n ) ,   r e d ,   g r e e n ,   b l u e ,   y e l l o w ,   b l a c k ,   w h i t e   
 
 c o l o r L i s t : =   { R G B ( 1 8 5 , 1 3 5 , 1 0 5 ) , R G B ( 2 5 5 , 0 , 0 ) , R G B ( 0 , 2 5 5 , 0 ) , R G B ( 0 , 0 , 2 5 5 ) , R G B ( 2 5 5 , 2 4 4 , 4 3 ) , R G B ( 0 , 0 , 0 ) , R G B ( 2 5 5 , 2 5 5 , 2 5 5 ) } ; 
 
 
 
 d o n e : =   0 ; 
 
 W H I L E   ( d o n e = = 0 )   D O 
 
 
 
 C H O O S E ( c h o i c e ,   " A l l o w   V a c a n t   P e g s ? " ,   " Y e s " ,   " N o " ) ; 
 
 
 
 i f   c h o i c e   = =   0   t h e n 
 
 / / c l i c k e d   o u t s i d e   c h o o s e   b o x   -   d e f a u l t   t o   Y e s 
 
       c h o i c e : = 1 ; 
 
 e n d ; 
 
 
 
 i f   c h o i c e = = 1   t h e n 
 
       s t a r t c o l : = 0 ; 
 
 e l s e 
 
       s t a r t c o l : = 1 ; 
 
 e n d ; 
 
       
 
 / / g e n e r a t e   s o l u t i o n 
 
 S o l u t i o n : = { 0 , 0 , 0 , 0 } ; 
 
 F O R   I   F R O M   1   t o   4   D O 
 
       S o l u t i o n ( I )   : =   R A N D I N T ( s t a r t c o l , 6 ) ; 
 
 E N D ; 
 
 
 
 
 
 / / c l e a r   s c r e e n 
 
 R E C T _ P ( 0 , 0 , 3 1 9 , 2 3 9 , 0 , R G B ( 1 4 2 , 1 4 2 , 1 4 2 ) ) ; 
 
 
 
 / / c r e d i t s 
 
 T E X T O U T _ P ( " M A S T E R M I N D " , 1 0 , 5 , 2 , R G B ( 0 , 0 , 0 ) ) ; 
 
 T E X T O U T _ P ( " v 1 . 3       2 0 2 0 " , 1 0 , 1 6 , 1 , R G B ( 0 , 0 , 0 ) ) ; 
 
 T E X T O U T _ P ( " b y   T o n y   G a l l o " , 1 0 , 2 6 , 1 , R G B ( 0 , 0 , 0 ) ) ; 
 
 
 
 / / t o p   r e c t a n g l e 
 
   R E C T _ P ( 9 5 , 5 , 2 2 0 , 3 5 , 0 , R G B ( 1 8 5 , 1 3 5 , 1 0 5 ) ) ;   
 
 
 
 / / g a m e   b o a r d 
 
 R E C T _ P ( 1 0 , 7 0 , 3 1 0 , 2 2 5 , 0 , R G B ( 1 8 5 , 1 3 5 , 1 0 5 ) ) ;   
 
   L I N E _ P ( 1 0 , 1 9 5 , 3 1 0 , 1 9 5 , R G B ( 0 , 0 , 0 ) ) ;   
 
     
 
 l o c a l   e m p t y C i r c l e C o l o r   : = { R G B ( 0 , 0 , 0 ) , R G B ( 1 8 5 , 1 3 5 , 1 0 5 ) } ; 
 
 
 
 / / l i n e s   a n d   c i r c l e s 
 
   F O R   X : = 1   t o   1 0   D O   
 
     L I N E _ P ( 3 0 * X + 1 0 , 7 0 , 3 0 * X + 1 0 , 2 2 5 , R G B ( 0 , 0 , 0 ) ) ;   
 
     F O R   Y : =   1   t o   4   D O   
 
       A R C _ P ( 3 0 * X - 5 , 3 0 * Y + 6 0 , 1 0 , e m p t y C i r c l e C o l o r ) ;   
 
     E N D ;   
 
     A R C _ P ( 3 0 * X - 1 0 , 2 0 5 , 3 , e m p t y C i r c l e C o l o r ) ;   
 
     A R C _ P ( 3 0 * X , 2 0 5 , 3 , e m p t y C i r c l e C o l o r ) ;   
 
     A R C _ P ( 3 0 * X - 1 0 , 2 1 5 , 3 , e m p t y C i r c l e C o l o r ) ;   
 
     A R C _ P ( 3 0 * X , 2 1 5 , 3 , e m p t y C i r c l e C o l o r ) ;   
 
   E N D ;   
 
 
 
 / / p o s i t i o n   p o i n t e r 
 
 T E X T O U T _ P ( " %" , 2 0 , 2 2 2 , 5 , R G B ( 2 0 7 , 3 , 1 2 4 ) ) ; 
 
 
 
 / / s e l e c t e d   c o l o u r 
 
 T E X T O U T _ P ( " S e l e c t e d   C o l o r : " , 1 2 , 5 0 , 2 , R G B ( 0 , 0 , 0 ) ) ; 
 
 
 
 i f   c h o i c e = = 1   t h e n 
 
 / / u n s e l e c t e d   -   b r o w n   -   0 
 
 A R C _ P ( 1 2 0 , 5 3 , 1 0 , { R G B ( 0 , 0 , 0 ) , R G B ( 1 8 5 , 1 3 5 , 1 0 5 ) } ) ; 
 
 T E X T O U T _ P ( " C L R " , 1 1 2 , 4 9 , 1 , R G B ( 7 5 , 0 , 1 3 0 ) ) ; 
 
 e n d ; 
 
 
 
 / / r e d   -   1 
 
 A R C _ P ( 1 5 0 , 5 3 , 1 0 , { R G B ( 2 5 5 , 0 , 0 ) , R G B ( 2 5 5 , 0 , 0 ) } ) ; 
 
 
 
 / / g r e e n   -   2 
 
 A R C _ P ( 1 8 0 , 5 3 , 1 0 , { R G B ( 0 , 2 5 5 , 0 ) , R G B ( 0 , 2 5 5 , 0 ) } ) ; 
 
 
 
 / / b l u e   -   3 
 
 A R C _ P ( 2 1 0 , 5 3 , 1 0 , { R G B ( 0 , 0 , 2 5 5 ) , R G B ( 0 , 0 , 2 5 5 ) } ) ; 
 
 
 
 / / y e l l o w   -   4 
 
 A R C _ P ( 2 4 0 , 5 3 , 1 0 , { R G B ( 2 5 5 , 2 4 4 , 4 3 ) , R G B ( 2 5 5 , 2 4 4 , 4 3 ) } ) ; 
 
 
 
 / / b l a c k   -   5 
 
 A R C _ P ( 2 7 0 , 5 3 , 1 0 , { R G B ( 0 , 0 , 0 ) , R G B ( 0 , 0 , 0 ) } ) ; 
 
     
 
 / / w h i t e   -   6 
 
 A R C _ P ( 3 0 0 , 5 3 , 1 0 , { R G B ( 2 5 5 , 2 5 5 , 2 5 5 ) , R G B ( 2 5 5 , 2 5 5 , 2 5 5 ) } ) ; 
 
 
 
 / / s e t   d e f a u l t   c o l o r 
 
 C o l o r X   : =   1 ; 
 
 
 
 / / d r a w   b o x 
 
 L I N E _ P ( 1 0 5 + ( C o l o r X * 3 0 ) , 4 0 , 1 3 5 + ( C o l o r X * 3 0 ) , 4 0 , R G B ( 0 , 0 , 0 ) ) ; 
 
 L I N E _ P ( 1 0 5 + ( C o l o r X * 3 0 ) , 6 6 , 1 3 5 + ( C o l o r X * 3 0 ) , 6 6 , R G B ( 0 , 0 , 0 ) ) ; 
 
 L I N E _ P ( 1 0 5 + ( C o l o r X * 3 0 ) , 4 0 , 1 0 5 + ( C o l o r X * 3 0 ) , 6 6 , R G B ( 0 , 0 , 0 ) ) ; 
 
 L I N E _ P ( 1 3 5 + ( C o l o r X * 3 0 ) , 4 0 , 1 3 5 + ( C o l o r X * 3 0 ) , 6 6 , R G B ( 0 , 0 , 0 ) ) ; 
 
 
 
 G : = 1 ; 
 
 
 
 G u e s s : = { 0 , 0 , 0 , 0 } ; 
 
 
 
 m e s s a g e : = 0 ; 
 
 
 
 W H I L E   I S K E Y D O W N ( 4 ) < > 1   d o 
 
 
 
 
 
 w a i t ( . 1 ) ; 
 
 t o u c h : = m o u s e ( ) ; 
 
 k e y : = - 1 ; 
 
 
 
 k e y : = g e t k e y ; 
 
 
 
       i f   ( k e y   > = 0   o r   s i z e ( t o u c h ( 1 ) ) )   a n d   m e s s a g e = = 1   t h e n 
 
             R E C T _ P ( 2 2 5 , 5 , 3 0 0 , 3 5 , R G B ( 1 4 2 , 1 4 2 , 1 4 2 ) , R G B ( 1 4 2 , 1 4 2 , 1 4 2 ) ) ; 
 
             m e s s a g e : = 0 ; 
 
       e n d ; 
 
 
 
             / / c o l o r   s e l e c t i n g   u s i n g     l e f t   a n d   r i g h t 
 
           i f   k e y = = 7   a n d   ( ( c h o i c e = = 1   a n d   C o l o r X > = 1 )   o r   ( c h o i c e = = 2   a n d   C o l o r X > = 2 ) )   t h e n 
 
               C o l o r X : = C o l o r X - 1 ; 
 
       B o x S e l e c t e d C o l o r ( C o l o r X ) ; 
 
     c o n t i n u e ; 
 
           e n d ; 
 
 
 
 
 
           i f   k e y = = 8   a n d   C o l o r X < = 5   t h e n 
 
               C o l o r X : = C o l o r X + 1 ; 
 
       B o x S e l e c t e d C o l o r ( C o l o r X ) ; 
 
     c o n t i n u e ; 
 
           e n d ; 
 
 
 
           / / G u e s s i n g 
 
           i f   k e y = = 3 0   t h e n 
 
 
 
                   / / i f   n o   v a c a n t   p e g s   a l o w e d   m a k e   s u r e   n o n e   a r e   v a c a n t 
 
                     i f   c h o i c e = = 2   a n d   ( G u e s s ( 1 ) = = 0   o r   G u e s s ( 2 ) = = 0   o r   G u e s s ( 3 ) = = 0   o r   G u e s s ( 4 ) = = 0 )   t h e n 
 
                             T E X T O U T _ P ( " N o   v a c a n t   p e g s " , 2 3 0 , 1 0 , 1 , R G B ( 0 , 0 , 0 ) ) ; 
 
                             T E X T O U T _ P ( " a l l o w e d . " , 2 4 2 , 2 2 , 1 , R G B ( 0 , 0 , 0 ) ) ; 
 
                             m e s s a g e : = 1 ; 
 
                               c o n t i n u e ; 
 
                   e n d ; 
 
 
 
                 / / a n a l y s e 
 
                 B : = 0 ; 
 
                 W : = 0 ; 
 
               S o l F l a g : = { 0 , 0 , 0 , 0 } ; 
 
 
 
               / / l o o k   f o r   e x a c t   m a t c h e s 
 
               F O R   I   F R O M   1   T O   4   D O 
 
                   i f   G u e s s ( I ) = = S o l u t i o n ( I )   t h e n 
 
                                     B : = B + 1 ; 
 
                                     G u e s s ( I ) : = 7 ;   / / f l a g g e d 
 
                                     S o l F l a g ( I ) : = 1 ;   / / f l a g g e d 
 
                       e n d ; 
 
               E N D ; 
 
 
 
             / / l o o k   f o r   r i g h t   c o l o u r   w r o n g   s p o t 
 
           F O R   I   F R O M   1   T O   4   D O 
 
       i f   G u e s s ( I ) < > 7   t h e n 
 
             F O R   J   F R O M   1   T O   4   D O 
 
                   i f   S o l F l a g ( J ) = = 0   A N D   G u e s s ( I ) = = S o l u t i o n ( J )   t h e n 
 
                                           W : = W + 1 ; 
 
                           G u e s s ( I ) : = 7 ; 
 
                                     S o l F l a g ( J ) : = 1 ; 
 
                   e n d ; 
 
             E N D ; 
 
       e n d ; 
 
           E N D ; 
 
 
 
             G u e s s : = { 0 , 0 , 0 , 0 } ; 
 
 
 
 
 
                 / / p l a c e   b l a c k   a n d   w h i t e   p e g s 
 
                 F O R   I   F R O M   1   t o   B   D O 
 
       S h o w R e s u l t ( I ,   R G B ( 0 , 0 , 0 ) , G ) ; 
 
                 E N D ; 
 
 
 
                 F O R   I   F R O M   B + 1   t o   B + W   D O 
 
       S h o w R e s u l t ( I ,   R G B ( 2 5 5 , 2 5 5 , 2 5 5 ) , G ) ; 
 
                 E N D ; 
 
             
 
             i f   B = = 4   o r   G = = 1 0   t h e n 
 
       / / g a m e   o v e r 
 
 
 
                     i f   B = = 4   t h e n 
 
                             T E X T O U T _ P ( " Y o u   w i n ! " , 2 5 0 , 1 0 , 2 , R G B ( 0 , 0 , 0 ) ) ; 
 
                   e l s e     / / G = = 1 0 
 
                           T E X T O U T _ P ( " Y o u   l o s e ! " , 2 5 0 , 1 0 , 2 , R G B ( 0 , 0 , 0 ) ) ; 
 
                   e n d ; 
 
 
 
             T E X T O U T _ P ( " P r e s s   a n y   k e y . " , 2 4 0 , 2 2 , 2 , R G B ( 0 , 0 , 0 ) ) ; 
 
             S h o w S o l u t i o n ( S o l u t i o n ) ; 
 
                                                       b r e a k ; 
 
                 e n d ; 
 
 
 
                 G : = G + 1 ; 
 
 
 
                   R E C T _ P ( 1 0 , 2 3 0 , 3 1 0 , 2 3 5 , R G B ( 1 4 2 , 1 4 2 , 1 4 2 ) ) ;   
 
                 T E X T O U T _ P ( " %" , ( 3 0 * ( G - 1 ) ) + 2 0 , 2 2 2 , 5 , R G B ( 2 0 7 , 3 , 1 2 4 ) ) ; 
 
     c o n t i n u e ; 
 
       e n d ; 
 
 
 
 
 
 
 
     i f   s i z e ( t o u c h ( 1 ) )   t h e n 
 
         i f     t o u c h ( 1 , 5 ) = = 0   t h e n 
 
             X : = B !R ( t o u c h ( 1 , 1 ) ) ; 
 
             Y : = B !R ( t o u c h ( 1 , 2 ) ) ; 
 
 
 
           / / c o l o r   s e l e c t o r 
 
             i f   1 1 0 < = X < = 3 1 0   a n d   4 3 < = Y < = 6 3   T H E N 
 
 
 
                   i f   1 1 0 < = X < = 1 3 0   a n d   c h o i c e = = 1   t h e n   C o l o r X   : =   0   E N D ;   / / u n s e l e c t e d   -   b r o w n 
 
                   i f   1 4 0 < = X < = 1 6 0   t h e n   C o l o r X   : =   1     E N D ;   / / r e d 
 
                   i f   1 7 0 < = X < = 1 9 0   t h e n   C o l o r X   : =   2     E N D ;   / / g r e e n 
 
                   i f   2 0 0 < = X < = 2 2 0   t h e n   C o l o r X   : =   3     E N D ;   / / b l u e 
 
                   i f   2 3 0 < = X < = 2 5 0   t h e n   C o l o r X   : =   4     E N D ;   / / y e l l o w 
 
                   i f   2 6 0 < = X < = 2 8 0   t h e n   C o l o r X   : =   5     E N D ;   / / b l a c k 
 
                   i f   2 9 0 < = X < = 3 1 0   t h e n   C o l o r X   : =   6     E N D ;   / / w h i t e 
 
 
 
                 B o x S e l e c t e d C o l o r ( C o l o r X ) ; 
 
     c o n t i n u e ; 
 
             E N D ; 
 
 
 
           / / p l a c i n g   p e g s 
 
             i f   ( 3 0 * ( G - 1 ) ) + 1 0 < = X < = ( 3 0 * ( G - 1 ) ) + 4 0   a n d   8 0 < = Y < = 1 9 0   T H E N 
 
                                               
 
       
 
         P e g C o l o r   : =   { R G B ( 0 , 0 , 0 ) , c o l o r L i s t ( C o l o r X + 1 ) } ; 
 
 
 
         i f   8 0 < = Y < = 1 0 0   t h e n 
 
               G u e s s ( 4 ) : = C o l o r X ; 
 
               A R C _ P ( ( 3 0 * ( G - 1 ) ) + 2 5 , 9 0 , 1 0 , P e g C o l o r ) ; 
 
     c o n t i n u e ; 
 
       E N D ; 
 
 
 
         i f   1 1 0 < = Y < = 1 3 0   t h e n 
 
                     G u e s s ( 3 ) : = C o l o r X ; 
 
                     A R C _ P ( ( 3 0 * ( G - 1 ) ) + 2 5 , 1 2 0 , 1 0 , P e g C o l o r ) ; 
 
     c o n t i n u e ; 
 
         E N D ; 
 
 
 
         i f   1 4 0 < = Y < = 1 6 0   t h e n 
 
                       G u e s s ( 2 ) : = C o l o r X ; 
 
                       A R C _ P ( ( 3 0 * ( G - 1 ) ) + 2 5 , 1 5 0 , 1 0 , P e g C o l o r ) ; 
 
     c o n t i n u e ; 
 
           E N D ; 
 
 
 
         i f   1 7 0 < = Y < = 1 9 0   t h e n                                                                   
 
                     G u e s s ( 1 ) : = C o l o r X ; 
 
                     A R C _ P ( ( 3 0 * ( G - 1 ) ) + 2 5 , 1 8 0 , 1 0 , P e g C o l o r ) ; 
 
     c o n t i n u e ; 
 
         E N D ; 
 
 
 
 
 
       E N D ; 
 
 
 
         e n d ; 
 
 
 
 
 
     e n d ; 
 
 E N D ; 
 
 
 
 k e y : = - 1 ; 
 
 w h i l e   k e y   =   - 1   d o 
 
         w a i t ( . 1 ) ; 
 
       t o u c h : = m o u s e ( ) ; 
 
           k e y : = g e t k e y ; 
 
 e n d ; 
 
 
 
 
 
 C H O O S E ( c h o i c e ,   " P l a y   A g a i n ? " ,   " Y e s " ,   " N o " ) ; 
 
 i f   c h o i c e   < >   1   t h e n   d o n e : = 1 ;   e n d ; 
 
 E N D ;   
 
 E N D ; 
 
 
 
 S h o w R e s u l t ( I ,   C o l o r ,   G ) 
 
 b e g i n 
 
 l o c a l   p e g C o l o r   : =   { C o l o r , C o l o r } ; 
 
 
 
         i f   I = = 1   t h e n   A R C _ P ( 3 0 * G - 1 0 , 2 0 5 , 2 , p e g C o l o r ) ;   e n d ; 
 
           i f   I = = 2   t h e n   A R C _ P ( 3 0 * G , 2 0 5 , 2 , p e g C o l o r ) ;     e n d ; 
 
           i f   I = = 3   t h e n   A R C _ P ( 3 0 * G - 1 0 , 2 1 5 , 2 , p e g C o l o r ) ;   e n d ; 
 
           i f   I = = 4   t h e n   A R C _ P ( 3 0 * G , 2 1 5 , 2 , p e g C o l o r ) ;   e n d ; 
 
 e n d ; 
 
 
 
 B o x S e l e c t e d C o l o r ( C o l o r X ) 
 
 b e g i n 
 
                       / / c l e a r   o l d   b o x   w h e r e v e r   i t   m a y   b e 
 
                     L I N E _ P ( 1 0 5 , 4 0 , 3 1 5 , 4 0 , R G B ( 1 4 2 , 1 4 2 , 1 4 2 ) ) ; 
 
                     L I N E _ P ( 1 0 5 , 6 6 , 3 1 5 , 6 6 , R G B ( 1 4 2 , 1 4 2 , 1 4 2 ) ) ; 
 
                       F O R   I   F R O M   0   t o   8   D O 
 
                                 L I N E _ P ( 1 0 5 + ( I * 3 0 ) , 4 0 , 1 0 5 + ( I * 3 0 ) , 6 6 , R G B ( 1 4 2 , 1 4 2 , 1 4 2 ) ) ; 
 
                     E N D ; 
 
 
 
                     / / d r a w   b o x 
 
                     L I N E _ P ( 1 0 5 + ( C o l o r X * 3 0 ) , 4 0 , 1 3 5 + ( C o l o r X * 3 0 ) , 4 0 , R G B ( 0 , 0 , 0 ) ) ; 
 
                     L I N E _ P ( 1 0 5 + ( C o l o r X * 3 0 ) , 6 6 , 1 3 5 + ( C o l o r X * 3 0 ) , 6 6 , R G B ( 0 , 0 , 0 ) ) ; 
 
                     L I N E _ P ( 1 0 5 + ( C o l o r X * 3 0 ) , 4 0 , 1 0 5 + ( C o l o r X * 3 0 ) , 6 6 , R G B ( 0 , 0 , 0 ) ) ; 
 
                     L I N E _ P ( 1 3 5 + ( C o l o r X * 3 0 ) , 4 0 , 1 3 5 + ( C o l o r X * 3 0 ) , 6 6 , R G B ( 0 , 0 , 0 ) ) ; 
 
 e n d ; 
 
 
 
 S h o w S o l u t i o n ( S o l u t i o n ) 
 
 b e g i n 
 
 l o c a l   I ; 
 
 
 
 F O R   I   F R O M   1   t o   4   D O 
 
     A R C _ P ( 8 2 + ( I * 3 0 ) , 2 0 , 1 0 , { R G B ( 0 , 0 , 0 ) , c o l o r L i s t ( S o l u t i o n ( I ) + 1 ) } ) ; 
 
 E N D ; 
 
 e n d ; 